home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Obutton2.cpp < prev    next >
C/C++ Source or Header  |  1999-01-22  |  4KB  |  143 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Obutton2.h"
  6.  
  7. TColor OColor[4] =
  8.   {clBlack, clGray, clSilver, clWhite};
  9.  
  10. //---------------------------------------------------------------------------
  11. static inline TOButton *ValidCtrCheck()
  12. {
  13.     return new TOButton(NULL);
  14. }
  15. //---------------------------------------------------------------------------
  16. __fastcall TOButton::TOButton(TComponent* Owner)
  17.     : TCustomControl(Owner)
  18. {
  19.   Color = clBtnFace;
  20.   SetSize (Rect (0, 0, 50, 50));
  21.   Pressed = false;
  22. }
  23. //---------------------------------------------------------------------------
  24. __fastcall TOButton::TOButton(TComponent* Owner, TColor Farbe)
  25.     : TCustomControl(Owner)
  26. {
  27.   Color = Farbe;
  28.   SetSize (Rect (0, 0, 50, 50));
  29.   Pressed = false;
  30. }
  31. //---------------------------------------------------------------------------
  32. __fastcall TOButton::TOButton(TComponent* Owner, TRect Rechteck)
  33.     : TCustomControl(Owner)
  34. {
  35.   Color = clBtnFace;
  36.   SetSize (Rechteck);
  37.   Pressed = false;
  38. }
  39. //---------------------------------------------------------------------------
  40. namespace Obutton2
  41. {
  42.     void __fastcall Register()
  43.     {
  44.         TComponentClass classes[1] = {__classid(TOButton)};
  45.         RegisterComponents("ZusΣtzlich", classes, 0);
  46.     }
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TOButton::SetSize (TRect Rechteck)
  50. {
  51.   Left   =  Rechteck.Left;
  52.   Top    =  Rechteck.Top;
  53.   Width  =  Rechteck.Right  - Rechteck.Left;
  54.   Height =  Rechteck.Bottom - Rechteck.Top;
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TOButton::SetColor(TColor OBrush, TColor OPen)
  58. {
  59.   Canvas->Brush->Color = OBrush;
  60.   Canvas->Pen->Color = OPen;
  61. }
  62. //---------------------------------------------------------------------------
  63. void __fastcall TOButton::MouseDown
  64.   (TMouseButton Button, Classes::TShiftState Shift, int X, int Y)
  65. {
  66.   TCustomControl::MouseDown (Button, Shift, X, Y);
  67.   if (Button == mbLeft)
  68.   {
  69.     Pressed = true;
  70.     Paint ();
  71.   }
  72. }
  73. //---------------------------------------------------------------------------
  74. void __fastcall TOButton::MouseUp
  75.   (TMouseButton Button, Classes::TShiftState Shift, int X, int Y)
  76. {
  77.   TCustomControl::MouseUp (Button, Shift, X, Y);
  78.   Pressed = false;
  79.   Paint ();
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TOButton::Paint (void)
  83. {
  84.   // Liniendicke
  85.   Canvas->Pen->Width = 2;
  86.  
  87.   // OButton gedrⁿckt
  88.   if (Pressed)
  89.   {
  90.     for (int i=1; i<5; i++)
  91.     {
  92.       SetColor (OColor[(i-1)/2], OColor[(i-1)/2]);
  93.       Canvas->Arc (i, i, Width-i, Height-i, i, i, i, i);
  94.     }
  95.   }
  96.   // OButton nicht gedrⁿckt
  97.   else
  98.   {
  99.     for (int i=1; i<5; i++)
  100.     {
  101.       SetColor (OColor[i-1], OColor[i-1]);
  102.       Canvas->Arc (i, i, Width-i, Height-i, i, i, i, i);
  103.     }
  104.   }  
  105.   // OButton-FlΣche
  106.   SetColor (Color, Color);
  107.   Canvas->Ellipse (5, 5, Width-5, Height-5);
  108. }
  109. //---------------------------------------------------------------------------
  110. __fastcall TOOButton::TOOButton(TComponent* Owner)
  111.     : TOButton(Owner)
  112. {
  113. }
  114. //---------------------------------------------------------------------------
  115. __fastcall TOOButton::TOOButton(TComponent* Owner, TColor Farbe)
  116.     : TOButton(Owner, Farbe)
  117. {
  118. }
  119. //---------------------------------------------------------------------------
  120. __fastcall TOOButton::TOOButton(TComponent* Owner, TRect Rechteck)
  121.     : TOButton(Owner, Rechteck)
  122. {
  123. }
  124. //---------------------------------------------------------------------------
  125. void __fastcall TOOButton::MouseDown
  126.     (TMouseButton Button, Classes::TShiftState Shift, int X, int Y)
  127. {
  128.   TCustomControl::MouseDown (Button, Shift, X, Y);
  129.   if (Button == mbLeft)
  130.   {
  131.     Pressed = !Pressed;
  132.     Paint ();
  133.   }
  134. }
  135. //---------------------------------------------------------------------------
  136. void __fastcall TOOButton::MouseUp
  137.     (TMouseButton Button, Classes::TShiftState Shift, int X, int Y)
  138. {
  139.   TCustomControl::MouseUp (Button, Shift, X, Y);
  140. }
  141. //---------------------------------------------------------------------------
  142.  
  143.